home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / grafix / misc / ami2d_2_0.lha / ami2d_dist / ami2d / rexx / axisym.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-19  |  1.1 KB  |  48 lines
  1. /*
  2. @Node Header
  3. @Next Macro
  4.  
  5. Code:       axisym.rexx
  6. Author:     Russell Leighton
  7. Revision:   16 Feb 1994
  8.  
  9. Comments:
  10.  
  11. This  script  sets  up Ami2D for axisym problems.  It sets needed variables
  12. and defines useful stress/strain functions for post-processing.
  13.  
  14. @EndNode
  15. @Node Macro
  16. */
  17.  
  18. address ami2d
  19.  
  20. 'axisym'
  21. 'problem(struct)'
  22. 'set plane strain'
  23.  
  24. 'set epsr=r1'
  25. 'set epsz=z2'
  26. 'set epst=t1'
  27. 'set gamrz=r2+z1'
  28. 'set gam12=(0.25*(epsr-epsz)^2+0.25*gamrz^2)^0.5'
  29. 'set eps1=0.5*(epsr+epsz)+gam12'
  30. 'set eps2=0.5*(epsr+epsz)-gam12'
  31. 'set eps3=t1'
  32.  
  33. 'set sigr=c1*r1+c5*z2+c8*t1+c10*gamrz-f1'
  34. 'set sigz=c5*r1+c2*z2+c6*t1+c9*gamrz-f2'
  35. 'set sigt=c8*r1+c6*z2+c3*t1+c7*gamrz-f1'
  36. 'set taurz=c10*r1+c9*z2+c7*t1+c4*gamrz'
  37. 'set tau12=(0.25*(sigr-sigz)^2+taurz^2)^0.5'
  38. 'set sig1=0.5*(sigr+sigz)+tau12'
  39. 'set sig2=0.5*(sigr+sigz)-tau12'
  40. 'set sig3=sigt'
  41. 'set sigh=(sigr+sigz+sigt)/3'
  42. 'set sigd=sig1-sigh'
  43. 'set sigv=((sigr*sigz+sigz*sigt+sigt*sigr)/3)^0.5'
  44. 'set siga=sigv/abs(sigh)'
  45.  
  46. 'set funs=temp epsr epsz epst gamrz eps1 eps2 eps3 gam12 sigr sigz sigt taurz sig1 sig2 sig3 tau12 sigh sigd sigv siga'
  47. exit
  48.